home *** CD-ROM | disk | FTP | other *** search
-
-
-
- DDDDIIIIMMMM((((3333FFFF)))) DDDDIIIIMMMM((((3333FFFF))))
-
-
-
- NNNNAAAAMMMMEEEE
- dim, ddim, qdim, idim, iidim, jidim - FORTRAN positive difference
- intrinsic functions
-
- SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
- rrrreeeeaaaallll rrrr1111,,,, rrrr2222,,,, rrrr3333
- ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn ddddpppp1111,,,, ddddpppp2222,,,, ddddpppp3333
- rrrreeeeaaaallll****11116666 qqqqpppp1111,,,, qqqqpppp2222,,,, qqqqpppp3333
- iiiinnnntttteeeeggggeeeerrrr iiii1111,,,, iiii2222,,,, iiii3333
- iiiinnnntttteeeeggggeeeerrrr****2222 iiiiiiii1111,,,, iiiiiiii2222,,,, iiiiiiii3333
- iiiinnnntttteeeeggggeeeerrrr****4444 jjjjiiii1111,,,, jjjjiiii2222,,,, jjjjiiii3333
-
- rrrr3333 ==== ddddiiiimmmm((((rrrr1111,,,, rrrr2222))))
-
- ddddpppp3333 ==== ddddddddiiiimmmm((((ddddpppp1111,,,, ddddpppp2222))))
- ddddpppp3333 ==== ddddiiiimmmm((((ddddpppp1111,,,, ddddpppp2222))))
-
- qqqqpppp3333 ==== qqqqddddiiiimmmm((((qqqqpppp1111,,,, qqqqpppp2222))))
- qqqqpppp3333 ==== ddddiiiimmmm((((qqqqpppp1111,,,, qqqqpppp2222))))
-
- iiii3333 ==== iiiiddddiiiimmmm((((iiii1111,,,, iiii2222))))
- iiii3333 ==== ddddiiiimmmm((((iiii1111,,,, iiii2222))))
-
- iiiiiiii3333 ==== iiiiiiiiddddiiiimmmm((((iiiiiiii1111,,,, iiiiiiii2222))))
- iiiiiiii3333 ==== iiiiddddiiiimmmm((((iiiiiiii1111,,,, iiiiiiii2222))))
- iiiiiiii3333 ==== ddddiiiimmmm((((iiiiiiii1111,,,, iiiiiiii2222))))
-
- jjjjiiii3333 ==== jjjjiiiiddddiiiimmmm((((jjjjiiii1111,,,, jjjjiiii2222))))
- jjjjiiii3333 ==== iiiiddddiiiimmmm((((jjjjiiii1111,,,, jjjjiiii2222))))
- jjjjiiii3333 ==== ddddiiiimmmm((((jjjjiiii1111,,,, jjjjiiii2222))))
-
- DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
- These functions return:
- arg1-arg2 if arg1 > arg2
- 0 if arg1 <= arg2
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- PPPPaaaaggggeeee 1111
-
-
-
-